home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 July / EnigmA AMIGA RUN 09 (1996)(G.R. Edizioni)(IT)[!][issue 1996-07 & 08][EARSAN CD VIII].iso / earcd / dev1 / trtnbl21.lha / TRITONBLITZ / toolmanager2.bb2 < prev    next >
Text File  |  1996-05-20  |  5KB  |  231 lines
  1. ;/*
  2. ; *  Triton - The object oriented GUI creation system For the AMIGA
  3. ; *  Written by Stefan Zeiger in 1993-1995
  4. ; *
  5. ; *  (c) 1993-1995 by Stefan Zeiger
  6. ; *  You are hereby allowed To Use this source OR parts
  7. ; *  of it For creating programs For AmigaOS which Use the
  8. ; *  Triton GUI creation system. All other rights reserved.
  9. ; *
  10. ; *  Toolmanager2.c - Looks like the original ToolManager
  11. ; *
  12. ; */
  13.  
  14. ; useful Runtime-Error-Routine which closes all windows if a error
  15. ; appears. So you don't need to restart your machine every time :-)
  16.  
  17. NoCli:WBStartup
  18.  
  19. SetErr
  20.  
  21.   ErrFail
  22.   If project.l Then TR_CloseProject_ project
  23.   If application.l Then TR_DeleteApp_ application
  24.   End
  25.  
  26. End SetErr
  27.  
  28. INCLUDE "blitz2:bbincludes/libraries/triton.bb2"
  29.  
  30. NEWTYPE .LVItem
  31.  
  32.   num.w
  33.   text$
  34.  
  35. End NEWTYPE
  36.  
  37. Dim cycle_entries.l(8)
  38. Dim List LVNodes.LVItem(9)
  39.  
  40. InitTagList 1,250
  41. InitTagList 2,10
  42.  
  43. cycle_entries(1)=Null("Exec")
  44. cycle_entries(2)=Null("Image")
  45. cycle_entries(3)=Null("Sound")
  46. cycle_entries(4)=Null("Menu")
  47. cycle_entries(5)=Null("Icon")
  48. cycle_entries(6)=Null("Docs")
  49. cycle_entries(7)=Null("Access")
  50. cycle_entries(8)=0
  51.  
  52. ResetList LVNodes()
  53.  
  54. If AddItem(LVNodes())
  55.   LVNodes()\text="2024View"
  56.   If AddItem(LVNodes())
  57.     LVNodes()\text="Add to archive"
  58.     If AddItem(LVNodes())
  59.       LVNodes()\text="Deletetool"
  60.       If AddItem(LVNodes())
  61.         LVNodes()\text="Edit text"
  62.         If AddItem(LVNodes())
  63.           LVNodes()\text="Env"
  64.           If AddItem(LVNodes())
  65.             LVNodes()\text="Exchange"
  66.             If AddItem(LVNodes())
  67.               LVNodes()\text="Multiview"
  68.             EndIf
  69.           EndIf
  70.         EndIf
  71.       EndIf
  72.     EndIf
  73.   EndIf
  74. EndIf
  75.  
  76. ResetList LVNodes()
  77.  
  78. Use TagList 2
  79.  
  80. AddTags #TRCA_Name,Null("ToolManagerGUIDemo1")
  81. AddTags #TRCA_LongName,Null("ToolManager-GUI Demo 1")
  82. AddTags #TRCA_Info,Null("Looks like the original")
  83. AddTags #TAG_END,0
  84.  
  85. Use TagList 1
  86.  
  87. AddTags !WindowID{1},!WindowPosition{#TRWP_MOUSEPOINTER}
  88. AddTags !WindowTitle{Null("ToolManager GUI demo 2")}
  89. AddTags !WindowFlags{#TRWF_NOSIZEGADGET OR #TRWF_NODELZIP OR #TRWF_ZIPTOCURRENTPOS}
  90. AddTags !WindowBackfillNone
  91.  
  92. AddTags !VertGroupA
  93.   AddTags !Space
  94.  
  95.   AddTags !HorizGroupAC
  96.     AddTags !Space
  97.  
  98.     AddTags !TextID{Null("_Object Type"),1}
  99.     AddTags !Space
  100.  
  101.     AddTags !CycleGadget{&cycle_entries(1),0,1}
  102.     AddTags !Space
  103.   AddTags !EndGroup
  104.  
  105.  
  106.   AddTags !Space
  107.  
  108.   AddTags !HorizGroup
  109.     AddTags !Space
  110.     AddTags !NamedFrameBox{Null("Object List")}
  111.  
  112.     AddTags !HorizGroupAC
  113.       AddTags !Space
  114.  
  115.       AddTags !VertGroupA
  116.  
  117.         AddTags !Space
  118.         AddTags !ListSSCN{&LVNodes(0)-36,2,0,0}
  119.         AddTags !Space
  120.  
  121.       AddTags !EndGroup
  122.  
  123.  
  124.       AddTags !Space
  125.  
  126.       AddTags !VertGroupA OR #TRGR_FIXHORIZ
  127.         AddTags !Space
  128.         AddTags !Button{Null("Top"),3}
  129.         AddTags !Space
  130.         AddTags !Button{Null("Up"),4}
  131.         AddTags !Space
  132.         AddTags !Button{Null("Down"),5}
  133.         AddTags !Space
  134.         AddTags !Button{Null("Bottom"),6}
  135.         AddTags !Space
  136.         AddTags !Button{Null("So_rt"),7}
  137.         AddTags !Space
  138.       AddTags !EndGroup
  139.  
  140.       AddTags !Space
  141.     AddTags !EndGroup
  142.  
  143.     AddTags !Space
  144.  
  145.   AddTags !EndGroup
  146.  
  147.   AddTags !Space
  148.  
  149.  
  150.   AddTags !HorizGroupEA
  151.     AddTags !Space
  152.     AddTags !Button{Null("_New..."),8}
  153.     AddTags !Space
  154.     AddTags !Button{Null("_Edit..."),9}
  155.     AddTags !Space
  156.     AddTags !Button{Null("Co_py"),10}
  157.     AddTags !Space
  158.     AddTags !Button{Null("Remove"),11}
  159.     AddTags !Space
  160.   AddTags !EndGroup
  161.  
  162.   AddTags !Space
  163.   AddTags !HorizGroupEA
  164.     AddTags !Space
  165.     AddTags !Button{Null("_Save"),12}
  166.     AddTags !Space
  167.     AddTags !Button{Null("_Use"),13}
  168.     AddTags !Space
  169.     AddTags !Button{Null("_Test"),14}
  170.     AddTags !Space
  171.     AddTags !Button{Null("_Cancel"),15}
  172.     AddTags !Space
  173.   AddTags !EndGroup
  174.  
  175.   AddTags !Space
  176.  
  177. AddTags !EndGroup
  178.  
  179. AddTags #TAG_END,0
  180.  
  181.  
  182. ; ------------------------------- MAIN ROUTINE -----------------------------
  183.  
  184. Use TagList 2
  185.  
  186. application.l=TR_CreateApp_(TagList)
  187.  
  188. If (application)
  189.  
  190.   Use TagList 1
  191.  
  192.   project.l=TR_OpenProject_(application,TagList)
  193.  
  194.   If (project)
  195.     user_closed=0
  196.  
  197.       While (user_closed=0)
  198.  
  199.         TR_Wait_ application,0
  200.  
  201.         *trmsg.TR_Message=TR_GetMsg_(application)
  202.  
  203.         While (*trmsg)
  204.  
  205.           If (*trmsg\trm_Project=project)
  206.             Select *trmsg\trm_Class
  207.  
  208.               Case #TRMS_CLOSEWINDOW
  209.                 user_closed=True
  210.               End Select
  211.           EndIf
  212.  
  213.           TR_ReplyMsg_ *trmsg
  214.  
  215.           *trmsg=TR_GetMsg_(application)
  216.         End While
  217.       End While
  218.     TR_CloseProject_ project
  219.   Else
  220.     NPrint "Unable to create the project"
  221.   EndIf
  222.  
  223.     TR_DeleteApp_ application
  224.  
  225. Else
  226.   NPrint "Unable to create application"
  227. EndIf
  228.  
  229. End
  230.  
  231.